home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Kde / Password.pm < prev    next >
Encoding:
Perl POD Document  |  2009-03-24  |  607 b   |  37 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Kde::Password;
  6. use strict;
  7. use Qt;
  8. use base qw(Debconf::Element::Kde);
  9.  
  10.  
  11. sub create {
  12.     my $this=shift;
  13.     
  14.     $this->SUPER::create(@_);
  15.     $this->startsect;
  16.     $this->widget(Qt::LineEdit($this->cur->top));
  17.     $this->widget->show;
  18.     $this->widget->setEchoMode(2);
  19.     $this->addhelp;
  20.     my $b = $this->addhbox;
  21.     $b->addWidget($this->description);
  22.     $b->addWidget($this->widget);
  23.     $this->endsect;
  24. }
  25.  
  26.  
  27. sub value {
  28.     my $this=shift;
  29.     
  30.     my $text = $this->widget->text();
  31.     $text = $this->question->value if $text eq '';
  32.     return $text;
  33. }
  34.  
  35.  
  36. 1
  37.